home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / printblk.bed < prev    next >
Text File  |  1997-12-03  |  683b  |  48 lines
  1. /*
  2. ** $VER: PrintBlk.bed 1.0 (03.01.96)
  3. **
  4. ** Print the currently selected block
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10. OPTIONS FAILAT 21
  11.  
  12. GetBlkInfo
  13. PARSE VAR RESULT mode . sel_y sel_x
  14.  
  15. IF mode = "OFF" THEN DO
  16.     SetStatusBar "No block selected!"
  17. END; ELSE DO
  18.  
  19.     SetDisplayLock ON
  20.     SetInputLock ON
  21.  
  22.     GetCursorPos
  23.     PARSE VAR RESULT y x .
  24.  
  25.     TaskID = Pragma('ID')
  26.  
  27.     SaveClip QUIET NOICON NOBACKUP 'T:OldClip' || TaskID
  28.  
  29.     CopyBlk
  30.     PrintClip name
  31.  
  32.     OpenClip 'T:OldClip' || TaskID
  33.  
  34.     Move sel_y sel_x
  35.     MarkBlk
  36.  
  37.     Move y x
  38.  
  39.     SetDisplayLock OFF
  40.     SetInputLock OFF
  41. END
  42.  
  43. IF ~Show(L,'rexxsupport.library') THEN DO
  44.     AddLib('rexxsupport.library',0,-30)
  45. END;
  46.  
  47. Delete("T:OldClip-" || TaskID)
  48.